home *** CD-ROM | disk | FTP | other *** search
/ Private Casting / Casting One.bin / Docs / Interview.dir / Internal_56.ls < prev    next >
Encoding:
Text File  |  1997-01-22  |  1.5 KB  |  57 lines
  1. on mouseEnter
  2.   cursor([cast "curs", cast "mask"])
  3.   puppetSprite(the currentSpriteNum, 1)
  4.   set the blend of sprite the currentSpriteNum to 50
  5. end
  6.  
  7. on mouseLeave
  8.   cursor(-1)
  9.   set the blend of sprite the currentSpriteNum to 100
  10. end
  11.  
  12. on mouseUp
  13.   global chica
  14.   cursor(-1)
  15.   set the blend of sprite the currentSpriteNum to 100
  16.   updateStage()
  17.   if (the clickOn = 6) or (the clickOn = 30) then
  18.     if the castNum of sprite 18 > 0 then
  19.       if the type of sprite 18 = #digitalVideo then
  20.         set the movieRate of sprite 18 to 0
  21.       end if
  22.     end if
  23.     puppetSound(0)
  24.     go(1, "models")
  25.   else
  26.     if (the clickOn = 7) or (the clickOn = 31) then
  27.       if chica = "F" then
  28.         set chica to "A"
  29.       else
  30.         set chica to numToChar(charToNum(chica) + 1)
  31.       end if
  32.       repeat with x = 11 to 18
  33.         puppetSprite(x, 0)
  34.         set the visible of sprite x to 0
  35.       end repeat
  36.       if the castNum of sprite 18 > 0 then
  37.         if the type of cast the castNum of sprite 18 = #digitalVideo then
  38.           set the movieRate of sprite 18 to 0
  39.         end if
  40.       end if
  41.       puppetTransition(2, 2)
  42.       updateStage()
  43.       go("pregs")
  44.     else
  45.       if (the clickOn = 8) or (the clickOn = 32) then
  46.         if the castNum of sprite 18 > 0 then
  47.           if the type of cast the castNum of sprite 18 = #digitalVideo then
  48.             set the movieRate of sprite 18 to 0
  49.           end if
  50.         end if
  51.         go(1, "TimeAfter")
  52.         puppetSound(0)
  53.       end if
  54.     end if
  55.   end if
  56. end
  57.